home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 May / Ahoy_Magazine_85-05_1985_Double_L.d64 / rupert 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  609b  |  25 lines
  1. 0 rem << rr17-7 >>
  2. 10 rem
  3. 20 rem =-=assembler source code=-=
  4. 30 rem
  5. 210 .;-- save screen to disk --
  6. 220 .       org $c000
  7. 230 .       jmp :entry
  8. 240 .:save  .eq $ffd8  ;s.a. of 'save'
  9. 243 .:saddr              ;start saving
  10. 246 .       .db $04 $00
  11. 250 .:eaddr              ;end saving
  12. 253 .       .db $07 $e8
  13. 256 .:entry
  14. 260 .       lda :saddr     ;hi byte
  15. 265 .       sta $fc
  16. 270 .       lda :saddr+$01 ;lo byte
  17. 275 .       sta $fb
  18. 280 .       lda #$fb       ;zero page
  19. 290 .       ldx :eaddr+$01 ;lo byte
  20. 300 .       ldy :eaddr     ;hi byte
  21. 310 .       jsr :save
  22. 320 .       rts            ;to basic
  23. 330 .:end
  24. 340 .       .en
  25.